home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / getdate.arc / GETDATE.PRG
Encoding:
Text File  |  1985-09-24  |  2.0 KB  |  54 lines
  1. *************GETDATE.PRG****************************************************
  2. *   CONVERT A DATE IN THE VARIABLE MDATE TO AN INTEGER OFFSET OF DAYS      *
  3. *    FROM THE BASE OF JANUARY 1,1980  (does not consider leap years)       *
  4. *   This routine assumes the date you wish converted is in the variable    *
  5. *    MDATE is the form MM/DD/YY.  It returns the value of days offset      *
  6. *    from January 1, 1980 in the variable ABSDAYS (absolute days)          *
  7. *   This routine comes in handy for such things as aging receivalbes where *
  8. *    invoices must be categorized as current, over30, over60, over90 etc   *
  9. *    All you need do is get the date of each, call this routine, get the   *
  10. *    current date, call this routine again, subtract and you have the age  *
  11. *    of the invoice.                                                       *
  12. ****************************************************************************
  13. *
  14. SET TALK OFF
  15. STORE 0 TO ABSDAYS
  16. STORE (VAL($(MDATE,7,2))-80)*365 TO ABSDAYS
  17. STORE ABSDAYS+VAL($(MDATE,4,2)) TO ABSDAYS
  18. STORE VAL($(MDATE,1,2)) TO TEMP
  19. DO CASE
  20.   CASE TEMP=2
  21.     STORE ABSDAYS+31 TO ABSDAYS
  22.   CASE TEMP=3
  23.     STORE ABSDAYS+59 TO ABSDAYS
  24.   CASE TEMP=4
  25.     STORE ABSDAYS+90 TO ABSDAYS
  26.   CASE TEMP=5
  27.     STORE ABSDAYS+120 TO ABSDAYS
  28.   CASE TEMP=6
  29.     STORE ABSDAYS+151 TO ABSDAYS
  30.   CASE TEMP=7
  31.     STORE ABSDAYS+181 TO ABSDAYS
  32.   CASE TEMP=8
  33.     STORE ABSDAYS+212 TO ABSDAYS
  34.   CASE TEMP=9
  35.     STORE ABSDAYS+243 TO ABSDAYS
  36.   CASE TEMP=10
  37.     STORE ABSDAYS+272 TO ABSDAYS
  38.   CASE TEMP=11
  39.     STORE ABSDAYS+304 TO ABSDAYS
  40.   CASE TEMP=12
  41.     STORE ABSDAYS+334 TO ABSDAYS
  42. ENDCASE
  43. RELEASE TEMP
  44. SET TALK ON
  45. RETURN
  46. *
  47. *************GETDATE.PRG****************************************************
  48. *   CONVERT A DATE IN THE VARIABLE MDATE TO AN INTEGER OFFSET OF DAYS      *
  49. *    FROM THE BASE OF JANUARY 1,1980  (does not consider leap years)       *
  50. ****************************************************************************
  51. ****************************************************************************
  52. *
  53.  
  54.